Option Explicit
Sub P_Sample010()
    Dim myOldName As String
    Dim myNewName As String
    'ɮצW
    myOldName = ThisWorkbook.Path & "\" & "P_Test1.txt"           'lɮ
    myNewName = ThisWorkbook.Path & "\" & "P_Test2.csv"           'ܧ᪺W
    If Len(Dir(myOldName)) > 0 Then
        Name myOldName As myNewName
    Else
        Name myNewName As myOldName
    End If
    'ƧW
    myOldName = ThisWorkbook.Path & "\" & "Tmp"                 'lƧ
    myNewName = ThisWorkbook.Path & "\" & "Tmp2"                'ܧ᪺W
    If Len(Dir(myOldName, vbDirectory)) > 0 Then
        Name myOldName As myNewName
    Else
        Name myNewName As myOldName
    End If
End Sub
